home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / DOS / PRGMMING / COMMA.ZIP / TESTCOMM.FOR < prev   
Encoding:
Text File  |  1994-12-06  |  458 b   |  20 lines
  1.       DOUBLE PRECISION DX(3)
  2.       REAL X(3)
  3.       INTEGER N(3)
  4.       CHARACTER*20 COMMA
  5.       DX(1)=1234.33333
  6.       DX(2)=0.0
  7.       DX(3)=1.0
  8.       WRITE(6,100) (COMMA(DX(I),10,1,1,2),I=1,3)
  9.       X(1)=1234.33333
  10.       X(2)=0.0
  11.       X(3)=1.0
  12.       WRITE(6,100) (COMMA(DBLE(X(I)),10,1,1,2),I=1,3)
  13.       N(1)=1234
  14.       N(2)=0
  15.       N(3)=1
  16.       WRITE(6,100) (COMMA(DBLE(N(I)),10,1,1,2),I=1,3)
  17. 100   FORMAT(1X,3A10)
  18.       STOP
  19.       END
  20.